
السلام عليكم  اساتذتنا الاكارم واخواني اعظاء المنتدى الرائع

طلب تعديل كود الاستعلام VBA

---------------

عمل الكود:
 الكود يقوم بالتالي يقوم الحاق حقول من استعلام ItemsCopy_Qr الى جدول BarcodeItems_T مع تكرار السجلات حسب رقم حقل QuantityS الموجود في الاستعلام الاول ItemsCopy_Qr في كل سجل


المطلوب:
تعديل كود الاستعلام  بحيث لا يقوم بالحاق وتكرار السجلات ألا بشرطين هما :

1- الشرط الاول : السجلات التي تحتوي رقم الحقل InvoiceNum في استعلام ItemsCopy_Qr يساوي نفس الموجود في حقل القائمة المنسدلة K1 بالنموذج Run_F  كالكود التالي:
WHERE (((ItemsCopy_Qr.InvoiceNum)=[Forms]![Run_F]![K1]))

2- الشرط الثاني : السجلات الذي يكون حقل sisl مؤشر علية الصح , كالكود التالي:
 ((ItemsCopy_Qr.sisl)=1)
أو
 ((ItemsCopy_Qr.sisl)=True)

---------------


شاكرا لكم على ماتقدموه من جهد ووقت لنا .. فجزاكم الله عنا خيرا

ملاحظة/
- تنفيذ الامر من خلال زر في نموذج Run
- الكود موجود في موديول BarcodePrintGroup_M
- يتم فك ضغط الملف المرفق في القرص D



